﻿
Imports occommon
Imports occommon.setResponse

Public Class userSet
    Inherits [set]

    Public Const _pathidentity As String = network.pathSeperator + path.userSet

    Shared Sub New()
        assert(Not strstartwith(path.userSet, network.pathSeperator))
    End Sub

    Public Overrides Function pathidentity() As String
        Return _pathidentity
    End Function

    Protected Overrides Function useUserToLogin() As Boolean
        Return True
    End Function

    Protected Overrides Function setCookies(ByVal site As String, ByVal user As String, _
                                            ByVal cookies As String) As Boolean
        assert(Not isemptystring(user))
        If isemptystring(site) Then
            Return writeUserSharedCookies(user, cookies)
        Else
            Return writeUserSiteCookies(user, site, cookies)
        End If
    End Function
End Class
